boot
 223 SZ$ =  STR$ (SD) + " FORLOOPS": IF SD = 0 THEN I = 30007: GOTO 225


compiler.2
 10  DIM P$(200):P = 0:PP = 30000: DIM PG$(200)

 1052 ZB$ = "752F:NOP": GOSUB 1010

 1058  GOSUB 1010:ZB = ZB - 30003: FOR A = 1 TO ZB:ZB$ = " BRK": GOSUB 1010: NEXT 

 5000 ZA$ = ZZ$:ZZ$ = "COMPILE.C":PZ = 1:UZ = 30000: ONERR  GOTO 7000

 7002 KJ$ =  STR$ (KJ):PP = UZ - 30000:ZB$ = "BSAVE " + GG$ + ",S" + KJ$ + ",A30000,L":ZC$ =  STR$ (PP):ZB$ = ZB$ + ZC$: GOSUB 1010:ZG$ = ZB$



